home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / AMOSList0993.lzh / AMOSLIST / 000126_amos-request@svcs1.digex.net_Fri Sep 10 09:39:49 1993.msg < prev    next >
Internet Message Format  |  1993-10-03  |  3KB
  1. Received: from nextsun.INS.CWRU.Edu by access.digex.net with SMTP id AA16716
  2.   (5.65c/IDA-1.4.4 for <mcox@access.digex.com>); Fri, 10 Sep 1993 09:39:45 -0400
  3. Received: from svcs1.digex.net by nextsun.INS.CWRU.Edu with SMTP (5.65b+ida+/CWRU-1.5.2-freenet-gw)
  4.     id AA11161; Fri, 10 Sep 93 07:32:01 -0400 (from amos-request@svcs1.digex.net )
  5. Received: by svcs1.digex.net id AA01172
  6.   (5.65c/IDA-1.4.4 for amos-list-out); Fri, 10 Sep 1993 07:24:01 -0400
  7. Received: from access.digex.net by svcs1.digex.net with SMTP id AA01168
  8.   (5.65c/IDA-1.4.4 for <amos-list@svcs1.digex.net>); Fri, 10 Sep 1993 07:23:59 -0400
  9. Received: from peladon.rmit.OZ.AU by access.digex.net with SMTP id AA27520
  10.   (5.65c/IDA-1.4.4 for <amos-list@access.digex.net>); Fri, 10 Sep 1993 07:23:57 -0400
  11. Received: from minyos.xx.rmit.OZ.AU by peladon.rmit.OZ.AU with SMTP id AA10435
  12.   (5.65c/IDA-1.4.4 for <amos-list@access.digex.net>); Fri, 10 Sep 1993 21:23:55 +1000
  13. Received: by minyos.xx.rmit.OZ.AU 
  14. From: s921878@minyos.xx.rmit.OZ.AU (Daniel John Lee Parnell)
  15. Message-Id: <9309101123.3208@minyos.xx.rmit.OZ.AU>
  16. Subject: More than 16 bobs from AMAL
  17. To: amos-list@access.digex.net (amos Amos Mailing List)
  18. Date: Fri, 10 Sep 1993 21:23:42 +1000 (EST)
  19. X-Mailer: ELM [version 2.4 PL22]
  20. Mime-Version: 1.0
  21. Content-Type: text/plain; charset=US-ASCII
  22. Content-Transfer-Encoding: 7bit
  23. Content-Length: 1848      
  24. Status: RO
  25.  
  26. G'day all!
  27.     I noticed recently that people have been complaining that it is not
  28. possible to animate more than 16 objects with AMAL, well, the following program
  29. shows that is is possible to do a lot more than that.
  30.  
  31.                     Daniel
  32.  
  33. ----------------------------------CUT HERE-----------------------------------
  34.  
  35. ' Test Program By Daniel Parnell 10th August 1993
  36. '  
  37. ' This program uses interrupts to move 64 bobs using AMAL
  38. ' thus showing that it is possible to animate more than 16 bobs under
  39. ' interrupts 
  40. '
  41. A$="S: Move 150,0,150; Move 0,70,100; Move -150,0,150; Move 0,-70,100; Jump S"
  42. Synchro Off 
  43. Flash Off 
  44. Set Curs %1000,%1000,%1000,%1111111,%1000,%1000,%1000,%0
  45. Get Bob 1,1,0 To 8,8
  46. Curs Off 
  47. Cls 0
  48. Locate 10,10
  49. Centre "Press mouse key to exit."
  50. '
  51. S$="This program shows that it is possible to use AMAL under interrupts "
  52. S$=S$+"for more than 16 bobs.  In this program there are 64 COUNT'EM.... "
  53. S$=S$+"64 bobs all moving in a rectange.  This is all done using the "
  54. S$=S$+"interupts....  SO IT CAN BE DONE!!!  :)                       "
  55. '
  56. Def Scroll 1,0,100 To 320,108,-2,0
  57. Double Buffer 
  58. '
  59. For I=0 To 7
  60.    For J=0 To 7
  61.       Bob I+J*8,I*16,J*16,1
  62.    Next J
  63. Next I
  64. '
  65. For I=0 To 63
  66.    Channel I To Bob I
  67.    Amal I,A$
  68. Next I
  69. '
  70. Amal On 
  71. Synchro On 
  72. '
  73. Do 
  74.    Scroll 1
  75.    Inc C
  76.    If C=4
  77.       C=0
  78.       Inc TP
  79.       If TP>Len(S$)
  80.          TP=1
  81.       End If 
  82.       Text 310,106,Mid$(S$,TP,1)
  83.    End If 
  84.    '
  85.    Exit If Mouse Key
  86. Loop 
  87. '
  88. Bob Off 
  89. Screen Close 0
  90.  
  91. ----------------------------------CUT HERE-----------------------------------
  92.  
  93. Daniel Parnell  -  Email to s921878@minyos.xx.rmit.oz.au   -   AMIGA 500 1 MEG
  94.  Second Year Applied Physics student at R.M.I.T. Melbourne Australia.   *:|()
  95.    People who drink petrol shouldn't smoke.  AMOS 1.34 with Compiler and 3D
  96.       Squaxx Dek Thargo since prog 579 - C64 Oric Amiga Mac CCPM - Forth